home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / grphwiz.dxr / 00030_optional fields.ls < prev    next >
Encoding:
Text File  |  2000-01-14  |  1.2 KB  |  60 lines
  1. property _me, pChannelLocList, pIsVisible
  2.  
  3. on new me, channelLocList, descendant
  4.   if objectp(descendant) then
  5.     _me = descendant
  6.   else
  7.     _me = me
  8.   end if
  9.   pChannelLocList = channelLocList
  10.   return me
  11. end
  12.  
  13. on condemn me
  14.   _me = 0
  15.   return me
  16. end
  17.  
  18. on Inscope me
  19.   repeat with i = 1 to count(pChannelLocList)
  20.     sprite(getPropAt(pChannelLocList, i)).visible = 1
  21.     puppetSprite(getPropAt(pChannelLocList, i), 1)
  22.   end repeat
  23.   return me
  24. end
  25.  
  26. on outScope me
  27.   repeat with i = 1 to count(pChannelLocList)
  28.     sprite(getPropAt(pChannelLocList, i)).visible = 1
  29.     puppetSprite(getPropAt(pChannelLocList, i), 0)
  30.   end repeat
  31.   return me
  32. end
  33.  
  34. on showMe me
  35.   if pIsVisible then
  36.     repeat with i = 1 to count(pChannelLocList)
  37.       sprite(getPropAt(pChannelLocList, i)).visible = 1
  38.       set the loc of sprite getPropAt(pChannelLocList, i) to getAt(pChannelLocList, i)
  39.     end repeat
  40.   end if
  41.   return me
  42. end
  43.  
  44. on hideMe me
  45.   repeat with i = 1 to count(pChannelLocList)
  46.     sprite(getPropAt(pChannelLocList, i)).visible = 0
  47.     set the loc of sprite getPropAt(pChannelLocList, i) to point(-9999, -9999)
  48.   end repeat
  49.   return me
  50. end
  51.  
  52. on doRollover me
  53.   return me
  54. end
  55.  
  56. on setVisible me, isVisible
  57.   pIsVisible = isVisible
  58.   return me
  59. end
  60.